
************************************************************************************************************
**#					FIGURE IA-2: YEARLY CHANGES IN THE CEO PAY RATIO
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

*pct_ch_ratio = percent change in CEO pay ratio truncated at 200%

*****************************************************
*Panel A - Change in CEO Pay Ratio Reporting Year 1-2
*****************************************************
histogram pct_ch_ratio if(sample_yr==2), percent ytitle(Percent of Sample) xtitle(Change in CEO Pay Ratio) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  5 "5%"  10 "10%" 15 "15%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "100%" 150 "150%" 200 "{&ge}200%")  bcolor(dknavy) barwidth(8.5)
graph export "Output/Tables/RF/FigIA2_histogram_pct_ch_ratio_yr2.png", as(png) replace

*****************************************************
*Panel B - Change in CEO Pay Ratio Reporting Year 2-3
****************************** **********************
histogram pct_ch_ratio if(sample_yr==3), percent ytitle(Percent of Sample) xtitle(Change in CEO Pay Ratio) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  5 "5%"  10 "10%" 15 "15%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "100%" 150 "150%" 200 "{&ge}200%")  bcolor(dknavy) barwidth(8.5)
graph export "Output/Tables/RF/FigIA2_histogram_pct_ch_ratio_yr3.png", as(png) replace

*****************************************************
*Panel C - Change in CEO Pay Ratio Reporting Year 3-4
****************************** **********************
histogram pct_ch_ratio if(sample_yr==4), percent ytitle(Percent of Sample) xtitle(Change in CEO Pay Ratio) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  5 "5%"  10 "10%" 15 "15%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "100%" 150 "150%" 200 "{&ge}200%")  bcolor(dknavy) barwidth(8.5)
graph export "Output/Tables/RF/FigIA2_histogram_pct_ch_ratio_yr4.png", as(png) replace
